home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / e / epp_v1_1.lha / EPP / PModules / skipToChar.e < prev    next >
Text File  |  1993-06-26  |  296b  |  16 lines
  1. OPT TURBO
  2.  
  3. PROC skipToChar (char, theString, pos)
  4.   DEF length
  5.  
  6.   /* Finds the specified character in theString and returns its position. */
  7.  
  8.   length := StrLen (theString)
  9.   WHILE pos < length
  10.     IF theString [pos] = char THEN RETURN pos
  11.     INC pos
  12.   ENDWHILE
  13. ENDPROC  pos
  14.   /* skipToChar */
  15.  
  16.